unit dDBUtil;

interface
 uses Classes;
    procedure DBUtil(AOwner : TComponent;
                     AServerName : string;
                     ACaminhoDB : string;
                     AAba : Integer;
                     ASrv : char;
                     AShowSrv: boolean = True;
                     AShowScr: boolean = False) ;

implementation
 uses  uFrmDBUtil;

procedure DBUtil(AOwner : TComponent;
              AServerName : string;
              ACaminhoDB : string;
              AAba : Integer;
              ASrv : char;
              AShowSrv: boolean = True;
              AShowScr: boolean = False) ;
begin

  TFrmDBUtil.DBUtil( AOwner,
                     AServerName,
                     ACaminhoDB,
                     AAba,
                     ASrv,
                     AShowSrv,
                     AShowScr,
                     1,
                     1);



end;


end.
